linf Subroutine

public subroutine linf(x, y, t, fout, klo, khi)

линейная аппроксимация TODO будет удобнее если переделать в функцию

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	x(*)
real(kind=wp),	intent(in)			::	y(*)
real(kind=wp),	intent(in)			::	t
real(kind=wp),	intent(out)			::	fout
integer,	intent(in)			::	klo
integer,	intent(in)			::	khi